10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 GOSUB1000
30 POKE53280,0:POKE53281,0:PRINT"[147]   COPYRIGHT 1989 COMPUTE! PUB., INC."
40 PRINTTAB(11)"ALL RIGHTS RESERVED"
50 PRINT"[158]           VERTICAL SCROLLER"
60 PRINT"[159]     SYS 49201 MOVES SCREEN DOWN"
70 PRINT"[159]     SYS 49152 MOVES SCREEN BACK UP"
80 PRINT"[154]   PRESS ANY KEY FOR A DEMONSTRATION"
90 POKE 252,24:REM SET SCREEN MODE
100 GETA$:IFA$=""THEN100
110 SYS49201
120 SYS49152
130 GOTO100
1000 FORAD=49152TO49247:READBY
1010 POKEAD,BY:X=X+BY:NEXTAD
1020 IFX<>15241THENPRINT"ERROR IN DATA STATEMENTS.":END
1030 V=53248:POKEV+21,255:POKEV+29,255
1040 FORI=832TO896:POKEI,255:NEXTI
1050 FORI=2040TO2047:POKEI,13:NEXTI
1060 FORI=V+1TOV+16STEP2:POKEI,247:NEXTI
1070 FORI=0TO8STEP2:POKEV+I,24+I*24:NEXTI
1080 FORI=0TO4STEP2:POKEV+I+10,I*24:NEXTI
1090 POKEV+16,224:FORI=39TO46:POKEV+I,0:NEXT
1100 RETURN
1110 DATA120,169,0,133,251,166,251
1120 DATA173,18,208,208,251,173,18
1130 DATA208,205,18,208,240,251,41
1140 DATA7,5,252,141,17,208,232
1150 DATA208,238,230,251,230,251,165
1160 DATA251,201,207,144,221,165,252
1170 DATA9,27,141,17,208,88,96
1180 DATA120,169,207,133,251,166,251
1190 DATA173,18,208,208,251,173,18
1200 DATA208,205,18,208,240,251,41
1210 DATA7,5,252,141,17,208,232
1220 DATA208,238,198,251,198,251,165
1230 DATA251,201,2,176,221,169,11
1240 DATA141,17,208,88,96